home *** CD-ROM | disk | FTP | other *** search
-
- /PrintEPS {
- [/newURy /newURx /newLLy /newLLx /URy /URx /LLy /LLx] { exch def } forall
- /scaleLLx newURx newLLx sub URx LLx sub div def
- /scaleLLy newURy newLLy sub URy LLy sub div def
- newLLx newLLy translate scaleLLx scaleLLy scale
- LLx neg LLy neg translate } bind def
-
-